perm filename GLORP5[FR,DBL] blob
sn#157725 filedate 1975-05-06 generic text, type T, neo UTF8
EDITF(LISTFILES)
LOADING FROM TOP2.;4
PROP
EDIT
*P
(LAMBDA (X) (COND & &) (TERPRI) (PRIN1 "SUPPRESSION OF FILE LISTING. ") (MAPC X
** &))
*-1 -1 -1 P
(LAMBDA (X1) (TERPRI) (PRIN1 &) (COND &))
*(-3 (SETQ X1 (UNPACK X1))(SETQ X1 (PACK (LDIFF X1 (MEMB '; X1]
*PP
[LAMBDA (X1)
(SETQ X1 (UNPACK X1))
[SETQ X1 (PACK (LDIFF X1 (MEMB (QUOTE ;)
X1]
(TERPRI)
(PRIN1 (CONCAT "SHOULD I FTP THE FILE " X1 " OVER TO SAIL? (Y,N)..."))
(COND
((EQ (RATOM)
(QUOTE Y))
(TENEX (CONCAT "FTP
SAIL
LOG AM,DBL MER
SEND " X1 "$
" X1 "
QUIT
"]
*OK
UNSAVED
LISTFILES
←↑C
@DIR
<LENAT>
BIG. ;2
CON2. ;3,2
.COM;3,2
MOLD.TXT;2,1
S . ;6
SUBSYS.INCOMFILE;1;S
TOP1. ;6
.COM;5
TOP2. ;4,3,2,1
.COM;4,3,2,1
@CON
LISTFILES((CON2.;3))
SUPPRESSION OF FILE LISTING.
SHOULD I FTP THE FILE CON2. OVER TO SAIL? (Y,N)...
Y
@FTP
SRI-AI FTP USER PROCESS 1.20.0
*SAIL
CONNECTION OPENED
ASSUMING 36-BIT CONNECTIONS.
*LOG AM,DBL
*SEND CON2.;3 [CONFIRM]
TO REMOTE-FILE CON2.
< SU-AI FTP SERVER 4.0 -- AT 06-MAY-75 2035
< PASSWORD OK, LOGIN COMPLETE
< STORE OF CON2[AM,DBL] STARTED CORRECTLY.
< DATA TRANSFER COMPLETE, FROM YOU TO US
288. BYTES TRANSFERRED, RUN TIME = 90. MS,
ELAPSED TIME = 9554. MS, RATE = 1085. BAUD.
*QUIT
@
@QUIT
NIL
←(DEFINEQ (AM-BT (LAMBDA NIL
(MAPDL (FUNCTION (LAMBDA (DX)
(COND ((OR (MEMBER DX (CAR TOP2COMS))
(MEMB DX CONCEPTS)) (PRIN1 DX)
]
EDIT
*(R MEMBER MEMB)
*-1 -1 P
(LAMBDA NIL (MAPDL &))
*-1 P
(MAPDL (FUNCTION &))
*-1 -1 -1 P
(COND (& &))
*-1 -1 P
(PRIN1 DX)
*(1 PRINT)
*0 P
((OR & &) (PRINT DX))
*(N (PRIN1 " ") (PRINT (VARIABLES MAPDLPOS))(PRINT (STKARGS MAPDLPOS))(TERPRI
**]
*P
((OR & &) (PRINT DX) (PRIN1 " ") (PRINT &) (PRINT &) (TERPRI))
*OK
(AM-BT)
←START)
ENTERING MAIN LOOP NOW.
VERBOSITY LEVEL (0-10) ....
0
(COMMENT THIS IS A MESSAGE ALL RIGHT)
((700 PRINT (C1 MSG)))V2
(COMMENT THIS IS A MESSAGE ALL RIGHT FROM C2)
π
*** INTEREST 30, 6, NCANDS=1, CAND=(700 PRINT (C1 MSG))
33
V3
***** AM FATAL COLLAPSE ***** DO-THRESH IS IDENTICALLY ZERO
(HELP BROKEN)
:AM-BT)
TLOOP
NIL
NIL
START
NIL
NIL
NIL
:
BT
HELP
TLOOP
START
**TOP**
:EDITF(AM-BT)
EDIT
*↑F
↑F ?
*F DX
*0 -1 P
(COND (& & & & & &))
*-1 P
((OR & &) (PRINT DX) (PRIN1 " ") (PRINT &) (PRINT &) (TERPRI))
*(INSERT (## 3) AFTER 5)
*4 P
(PRINT (VARIABLES MAPDLPOS))
*(1 COND)
*2
*MBD SETQ
P
(SETQ (VARIABLES MAPDLPOS))
*(-2 V1)
*P
(SETQ V1 (VARIABLES MAPDLPOS))
*0 P
(COND (SETQ V1 &))
*BI 2
*2 P
((SETQ V1 &))
*(N (PRIN1 " ")(PRINT V1) )
*P
((SETQ V1 &) (PRIN1 " ") (PRINT V1))
*(N (PRIN1 " ") (PRINT (STKARGS MAPDLPOS)))
]
*0 PP
[COND
((SETQ V1 (VARIABLES MAPDLPOS))
(PRIN1 " ")
(PRINT V1)
(PRIN1 " ")
(PRINT (STKARGS MAPDLPOS]
*P
(COND (& & & & &))
*2 (2)
*0 P
(COND (& & & &))
*UNDO
(2 --) UNDONE.
*P
((SETQ V1 &) (PRIN1 " ") (PRINT V1) (PRIN1 " ") (PRINT &))
*0 P
(COND (& & & & &))
*(N ((PRIN1 " ---NO ARGS"]
*P
(COND (& & & & &) (&))
*-1 P
((PRIN1 " ---NO ARGS"))
*(N (TERPRI]
*0 P
(COND (& & & & &) (& &))
*0 P
((OR & &) (PRINT DX) (PRIN1 " ") (COND & &) (PRINT &) (PRIN1 " ") (TERPRI))
*(3)
*P
((OR & &) (PRINT DX) (COND & &) (PRINT &) (PRIN1 " ") (TERPRI))
*(4)
*(4)
*PP
((OR (MEMB DX (CAR TOP2COMS))
(MEMB DX CONCEPTS))
(PRINT DX)
(COND
((SETQ V1 (VARIABLES MAPDLPOS))
(PRIN1 " ")
(PRINT V1)
(PRIN1 " ")
(PRINT (STKARGS MAPDLPOS)))
((PRIN1 " ---NO ARGS")
(TERPRI)))
(TERPRI))
*OK
AM-BT
:BREAK(DE-THRESH)
(DE-THRESH)
:
START)
ENTERING MAIN LOOP NOW.
VERBOSITY LEVEL (0-10) ....
0
(COMMENT THIS IS A MESSAGE ALL RIGHT)
(DE-THRESH BROKEN)
:AM-BT)
DE-THRESH
---NO ARGS
TLOOP
---NO ARGS
START
---NO ARGS
TLOOP
---NO ARGS
START
---NO ARGS
NIL
:
BREAK((C1 C2))
(C1)
:
BREAK(C2)
(C2)
:
OK
DE-THRESH
(C2 BROKEN)
:AM-BT)
C2
(P A)
(RELEVANCE 148)
UNFORGETTABLE
(B P I F ARG1)
(C2 NIL NIL NIL NIL)
FIND-NEW-CANDS
---NO ARGS
TLOOP
---NO ARGS
START
---NO ARGS
TLOOP
---NO ARGS
START
---NO ARGS
NIL
:
REDO EDITF
EDIT
*P
(LAMBDA NIL (MAPDL &))
*-1 -1 -1 -1 P
(COND (& & & &))
*-1 P
((OR & &) (PRINT DX) (COND & &) (TERPRI))
*2 (1 PRIN1)
*0 (4)
*P
((OR & &) (PRIN1 DX) (COND & &))
*-1 P
(COND (& & & & &) (& &))
*2 P
((SETQ V1 &) (PRIN1 " ") (PRINT V1) (PRIN1 " ") (PRINT &))
*(-2 (TERPRI))
*P
((SETQ V1 &) (TERPRI) (PRIN1 " ") (PRINT V1) (PRIN1 " ") (PRINT &))
*OK
AM-BT
:AM-BT)
C2
(P A)
(RELEVANCE 148)
UNFORGETTABLE
(B P I F ARG1)
(C2 NIL NIL NIL NIL)
FIND-NEW-CANDS ---NO ARGS
TLOOP ---NO ARGS
START ---NO ARGS
TLOOP ---NO ARGS
START ---NO ARGS
NIL
:
REDO EDITF
EDIT
*P
(LAMBDA NIL (MAPDL &))
*(2 (V1))
*P
(LAMBDA (V1) (MAPDL &))
*OK
AM-BT
:EDITV(TOP2COMS)
EDIT
*1 1 P
FNS
*NX P
ACCEPT-B
*NX P
CHANGE-B
*UP
*(-1 AM-BT)
*P
... AM-BT CHANGE-B COMMENT DE-THRESH FIND-NEW-CANDS FORGOT-ANY IN-FACTOR INIT1
**INIT2 INIT-C LESS-INT LISTFILES MCON
MORE-INT MTOP PRUNABLE PRUNE SELF START TLOOP UNFORGETTABLE UP-THRESH UPDATE)
*OK
TOP2COMS
:
←CLEANUP)
****NOTE: THE FOLLOWING ARE NOT CONTAINED ON ANY FILE:
THE FUNCTIONS: C5,C9
TOP2...
SUPPRESSION OF FILE LISTING.
SHOULD I FTP THE FILE TOP2. OVER TO SAIL? (Y,N)...
Y
@FTP
SRI-AI FTP USER PROCESS 1.20.0
*SAIL
CONNECTION OPENED
ASSUMING 36-BIT CONNECTIONS.
*LOG AM,DBL
*SEND TOP2.;5 [CONFIRM]
TO REMOTE-FILE TOP2.
< SU-AI FTP SERVER 4.0 -- AT 06-MAY-75 2055
< PASSWORD OK, LOGIN COMPLETE
< STORE OF TOP2[AM,DBL] STARTED CORRECTLY.
< DATA TRANSFER COMPLETE, FROM YOU TO US
2170. BYTES TRANSFERRED, RUN TIME = 167. MS,
ELAPSED TIME = 10825. MS, RATE = 7216. BAUD.
*QUIT
@
@QUIT
COMPILING TOP2.;5
LISTING? ...ST
GC: 8
9438, 10460 FREE WORDS
ACCEPT-B,
(AM-BT COMPILING)
(AM-BTA0006 COMPILING)
(AM-BTA0006 (DX) (MAPDLPOS V1))
(AM-BT (V1) NIL)
(AM-BT REDEFINED)
CHANGE-B, COMMENT, DE-THRESH, FIND-NEW-CANDS, FORGOT-ANYA0003, FORGOT-ANY, IN-F
**ACTOR, INIT1, INIT2, INIT-C, LESS-INT,
(LISTFILES COMPILING)
(LISTFILES (X) NIL)
(LISTFILES REDEFINED)
MCON, MORE-INT, MTOP, PRUNABLE, PRUNE, SELF, START, TLOOP, UNFORGETTABLE, UP-TH
**RESH, UPDATE,
TOP2.COM;5
NO MORE FILES TO LIST JUST NOW
SUPPRESSION OF FILE LISTING. (TOP2.;5)
←GETD(AM-BT)
#411147
←
CDR(AM-BT)
(EXPR (LAMBDA (V1) (MAPDL (FUNCTION (LAMBDA (DX) (COND ((OR (MEMB DX (CAR TOP2C
**OMS)) (MEMB DX CONCEPTS)) (PRIN1 DX)
(COND ((SETQ V1 (VARIABLES MAPDLPOS)) (TERPRI) (PRIN1 " ") (PRINT V1) (PRIN1
**" ") (PRINT (STKARGS MAPDLPOS)))
((PRIN1 " ---NO ARGS") (TERPRI))))))))))
←
MTOP)
MAYBE YOU FORGOT SOME OF THESE:
C9 C5
THINK!!!
COMPILING TOP2.;6
LISTING?
N
REDEFINE? Y
SAVE EXPRS? N
ACCEPT-B, AM-BTA0006, AM-BT, CHANGE-B, COMMENT, DE-THRESH, FIND-NEW-CANDS,
GC: 30
715, 715 FREE WORDS
FORGOT-ANYA0003, FORGOT-ANY, IN-FACTOR, INIT1, INIT2, INIT-C, LESS-INT, LISTFIL
**ES, MCON, MORE-INT, MTOP, PRUNABLE, PRUNE
, SELF, START, TLOOP, UNFORGETTABLE, UP-THRESH, UPDATE,
TOP2.COM;6
TOP2.;6
←LISPXSTATS)
(164 LISPX INPUTS)
(721 UNDO SAVES)
(2 CHANGES UNDONE)
(33 CALLS TO EDITOR)
(214 EDIT COMMANDS)
(96 EDIT UNDO SAVES)
(1 EDIT CHANGES UNDONE)
(15 P.A. COMMANDS)
(11 CALLS TO DWIM)
(10 WERE DUE TO ERRORS)
OF THOSE DUE TO ERRORS:
(7 WERE DUE TO ERRORS IN TYPE-IN)
(4 WERE DUE TO ERRORS IN USER PROGRAMS)
(3 OF THESE CALLS WERE SUCCESSFUL)
OF THE CALLS DUE TO DWIMIFYING:
(2 OF ALL DWIM CORRECTIONS WERE SPELLING CORRECTIONS)
(1 WERE RECORD OPERATIONS)
(4 OTHER SPELLING CORRECTIONS, E.G. EDIT COMMANDS)
(2:23:47 CONSOLE TIME)
(0:49:3 OF IT IN THE EDITOR)
(0:4:50 CPU TIME)
(0:0:2 OF IT IN DWIM)
T
←
SYSOUT(S)
ππ RUNNING AT 14777 LOAD AV. = 2.10, USED 0:09:19.9 IN 6:14:34
S.;7
←
LOGOUT)
@
@DIR
<LENAT>
BIG. ;2
CON2. ;3,2
.COM;3,2
MOLD.TXT;2,1
S . ;7,6
TOP1. ;6
.COM;5
TOP2. ;6,5,4,3,2,1
.COM;6,5,4,3,2,1
@DEL CON2
@DEL CON2.COM
@DEL TOP2.COM
@DEL TOP2.COM
@DEL TOP2.COM
@DEL TOP2.COM
@DEL TOP2
@DEL TOP2
@DEL TOP2
@DEL TOP2
@DIR
<LENAT>
BIG. ;2
CON2. ;3
.COM;3
MOLD.TXT;2,1
S . ;7,6
TOP1. ;6
.COM;5
TOP2. ;6,5
.COM;6,5
@DEL S
@EXPUNGE
@DEL TOP2
@DEL TOP2.COM
@DEL S
@DS
357 TOTAL PAGES IN USE - 300 ALLOWED, 23 UNDELETED, 334 DELETED
SYSTEM TOTAL: 12794 PAGES LEFT, 62756 USED
@DS
357 TOTAL PAGES IN USE - 300 ALLOWED, 23 UNDELETED, 334 DELETED
SYSTEM TOTAL: 12764 PAGES LEFT, 62786 USED
@LISP
INTERLISP-10 18-NOV-74 ...
GOOD EVENING, DOUG.
←STORAGE(T)
TYPE USED ASSIGNED SYSTEM
1 42 1536 33280
2 4608 4608 54784
4 0 512 512
8 0 2048 15872
12 0 3072 13824
16 0 512 512
18 0 512 1536
24 0 512 1536
28 24 2048 8704
30 8 512 3072
SUM 4682 15872 133632
NIL
←
LOAD(TOP2.COM)
COMPILED ON 6-MAY-75 21:03:42
FILE CREATED 6-MAY-75 21:03:31
(LISTFILES REDEFINED)
TOP2COMS
(GLOBALVARS RESET)
GC: 8
233, 10453 FREE WORDS
YOU PROBABLY WANT TO LOAD IN THE FILE CON2 NOW
TOP2.COM;6
←
STORAGE)
TYPE USED ASSIGNED
1 1284 1536
2 4608 4608
4 1 512
8 1815 12288
12 234 3072
16 0 512
18 68 2048
24 42 512
28 162 2048
30 195 512
SUM 8409 27648
NIL
←
LOAD(CON2.COM)
COMPILED ON 6-MAY-75 19:57:03
FILE CREATED 6-MAY-75 19:56:18
CON2COMS
THE NUMBER OF CONCEPTS IS 2
CON2.COM;3
←
STORAGE)
TYPE USED ASSIGNED
1 1428 1536
2 4608 4608
4 1 512
8 1815 12288
12 234 3072
16 0 512
18 68 2048
24 42 512
28 185 2048
30 214 512
SUM 8595 27648
NIL
←
LISPXSTATS)
(6 LISPX INPUTS)
(243 UNDO SAVES)
OF THOSE DUE TO ERRORS:
OF THE CALLS DUE TO DWIMIFYING:
(0:0:42 CONSOLE TIME)
(0:0:0 OF IT IN THE EDITOR)
(0:0:10 CPU TIME)
(0:0:0 OF IT IN DWIM)
T
←
CDR(C1)
NIL
←
PUTD(C1 FILE CON2)
ILLEGAL ARG - PUTD
FILE
←PUTD(A B C)
ILLEGAL ARG - PUTD
B
←GETD(C1)
#410521
←
PUT(C1 FILE CON2)
CON2
←
CDR(C1)
(FILE CON2)
←
SYSOUT(S)
S.;8
←
LOGOUT)
@
@LAV
0.88 1.36 1.91
@DIR
<LENAT>
BIG. ;2
CON2. ;3
.COM;3
MOLD.TXT;2,1
S . ;8
TOP1. ;6
.COM;5
TOP2. ;6
.COM;6
@EXPUNGE
@DS
114 TOTAL PAGES IN USE - 300 ALLOWED, 114 UNDELETED, 0 DELETED
SYSTEM TOTAL: 12605 PAGES LEFT, 62945 USED
@LOGOUT
LOGOUT JOB 41, USER LENAT, ACCT HACK, TTY 114, AT 5/06/75 2117
USED 0:9:57 IN 6:23:21